ShearVelocity Function

private function ShearVelocity(dp, s) result(sv)

compute shear velocity (m/s)

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dp

water depth (m)
real(kind=float), intent(in) :: s

channel slope (m/m)

Return Value real(kind=float)

shear velocity (m/s)


Source Code

FUNCTION ShearVelocity &
!
(dp, s) &
!
RESULT (sv)

IMPLICIT NONE

REAL (KIND = float), INTENT(IN) :: dp !!water depth (m)
REAL (KIND = float), INTENT(IN) :: s !!channel slope (m/m)

!local declarations:
REAL (KIND = float) :: sv !!shear velocity (m/s)

!------------end of declaration------------------------------------------------

sv = (gravityAccel * dp * s)**0.5


END FUNCTION ShearVelocity